C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


wow aC Qr~ ww rive CO ww 
SHNMSATHOSSDCOVOK 


ww wu 
ww wu ww 
wu wu wu | 
wus ww ww 


usu 
a ss a as 
eS TCU ReSiesleeleeleelvcgewlvesvuleulouleel 


nw MWNWNnM 


VVEVVYVYVYYUYUYUY 
VVVVUYVUYYUYUUYUUY 


at ee ee ne ee ed ee ed oe 
a a eee ed ee eo 


VYYVYUYVYYUYUYUYY 
VYVYVYVUVUUYUY 


333333333333 


LLLLLLLLLL 
LLLLLLLLLL 


333333333333 


**F ILE**1D**UCVTCASE 


15 
& TSUCVTCASE = convert to upper case 1b-3¢ -1984 01:57:55 VAX-11 Bliss-32 V4.0-74 P 1 
si ea een fhe Ph:3bi3s | GA Steacceoe sacsucurcase.euiet* c1} 


TCASE = convert to upper case’ 
CASE ( ! Convert to upper Sace 

poent = 'v04-000' ! File: UCVTCASE.BLI Edit: JBS1006 
BEGIN 


RRR RARAAAAARERAAARAREAARAAEEEA ARE AAAAA EAE AAA EERERERAAAERERERAAEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


Convert a character string to upper case. 
ENVIRONMENT: Runs at any access mode - AST reentrant 


SE WWNWNAAAw 


1 

i 

i 

i 

i 

i 

i 

1 

: AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 
: MODIFIED BY: 
i 

i 

i 

i 

t 

i 

i 

1 

' 
i 


So 


WN =O OONOUS WN “OO OODNOUSWN SO OONOUS WIR “OD ONOUEWH— 


1-001 = Original. DJS gs 4 ph dF This module was created by 
ig nt pe routine EDT SCHY UPC from module UTIL. 
F - Regularized headers. {6S 5-Feb-1 


Sere 


* 
1 1 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. ¥ 
: ! :* ALL RIGHTS RESERVED. * 
if wy 
1 1 'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY ER * 
1 id 's COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 1 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: Bat 7 TRANSFERRED. * 
it ® 
2 002 'w THE INFORMATION IN THIS SOFTWARE IG SUBJECT TO CHANGE WITHOUT NOTICE * 
00 '@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
80 ‘* CORPORATION. * 
7 % 
00 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
+ 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
, ® 
0 '@ * 
09 VR RRRRRAAARAEEREAAEEERAAAAEAAAEEREAAEAR EERE AAEAAAAEAAAAAAAARAAAARERRRRA EE 
0 1 
00 
00 ot 
oe FACILITY: EDT -- The DEC Standard Editor 
00 ABSTRACT: ‘ 
00 
00 
00 
00 
00 
4 00 
4 0 
4 0 
4 
44 
45 
4 
4 


-1981 
Fix module name. JBS Mar-19 1 
Support DEC Multinational cbocecter set. JBS 16-Jul-1982 
Do the conversion by subtracting ¢ rather than looking 
in a 5 hug Meee this module fit better on the PDP-11. 


oo 
Rr 
——t = 
a 
So 
- 
ere 


} JBS 25-Aug~1 
1-006 - Add V7220 support conditional. JBS 11-Feb-1983 


Be ee Be Se Be Be Be Se Se Se Fe Se Be Ge Fe Se Fe Se Fe Ge Ge Ge FF Fs Gs Ss Se Ge Se Ss Be Se Ge Se Se Se Se Se Se Ss Se Se Se Se Se Se Se FHS Ss oe Oe Se Sse 
ce ce ce ee ce ee ee cee cc ee cc cee cc ce ce ee ce ee ce ee ce ee cD ce ee ce ee ce ce ee ee ee ee et ee ee ee ee eed ee ee 
. 


FUR 0 OONO UEP 2 O OOO UE WIN $$ 9 ODNOU EWI SO OONOUS WhO 


ss 
Fwnr—O0ew 
Ssssss 
DA & 


T 


é 


E 


=] 


15 
CVTCASE EDTSUCVTCASE = convert to upper case 16-Sep-19 r 9 : 
fa 


7:55 VAX=11 Bliss- 
Declarations 5:73 Bliss-32 V4.0-7 Page 


2 
DISKSVMSMASTER: EDT. sac UCVTCASE.BLI;1 (2) 
4 XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: | 


oO 
NOuw 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


SESS 


SINNER AAAAAAAAOUIUIVIMN 


v04 

; 1 

3 1 

3 1 

3 1 

: ! 

3 
; 500 1 FORWARD ROUTINE | 
3 4 : EDTSSCNV_UPC : NOVALUE; 
3 88 1! 

; Be } INCLUDE FILES: 

; Bene 1 

3 2 : REQUIRE ‘EDTSRC:EDTREQ'; 

3 “8 : LIBRARY ‘EDTSRC: TRANSLATE’; 
3 oF 1 LIBRARY ‘EDTSRC:SUPPORTS'; 
3 5 th 1 

3 76 0647 1! 
; 77 0648 1 ! MACROS: 

3 78 0649 1! 

3 79 0650 1! NONE 

; 0651 1! 

en | bees 1! 

3 a¢ 0655 1! 

a. a 0654 1! NONE 

; «684 0655 1! 

; 8 B028 1 ! OWN STORAGE: 

: 686 0657 1! 

+ Sr 0658 1! NONE 

; 88 0659 1! 

: @689 0660 1 ! EXTERNAL REFERENCES: 

; 90 0661 1! 

tm 0662 1! NONE 


i EQUATED SYMBOLS: 
| 


0 15 | 
EDTSUCVTCASE EDTSUCVTCASE = convert to upper case 16-Sep-1984 01:57:55 VAX-11 Bliss-32 V4.0-74 Page 3) 
bu2050 EDTSSCNV UPC - convert to upper case 132808- 1384 EE DL eKSVMSMASTER-CEDT SRCSUCVTCASE .BLI-4? (3) | 
; 3 63 ' ZSBTTL "EDTSSCNV_UPC = convert to upper case’ 
3 5 665 1 GLOBAL ROUTINE EDTSSCNV_UPC ( ! Convert to upper case 
; 4 1 STRING, ! Pointer to the string to convert 
A . 667 1 LE ! Length of that string 
3 98 208 1 ) : NOVALUE = 
; 99 § 1 | 
; 100 670 1 !44 
; +t of : FUNCTIONAL DESCRIPTION: 
; 198 ore 1 i This routine converts a character string to upper case in place. | 
5 ie ore } Because source and destination overlay we cannot use CHSTRANSLATE. 
; 196 0676 | FORMAL PARAMETERS: 
; H's gee : STRING Pointer to the string. 
: 119 peat ! LEN Length of the string. . 
: 118 068¢ 1 | IMPLICIT INPUTS: | : 
. 0683 1! : 
fois bess 1 i ate | 
: 116 0686 1 | IMPLICIT OUTPUTS: | : 
s W7 068 3 3 
cit pe ae asl 
: 120 0690 1 | ROUTINE VALUE: | 
: 121 929. 1! 
ia ° Bap oe 
> 126 0694 1! SIDE EFFECTS: 
; 125 0695 1! 
: 126 0696 1! NONE 
- See 0697 1! 
: 128 0698 1 !-- 
: 129 0699 1 
3 : , 4 BEGIN 
; 132 L 070 XIF SUPPORT_VT220 
; 132 tay XTHEN 
: 135 6708 EXTERNAL 
; 13 re EDTS$$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE]; ! Information about characters 
: 138 708 2 XFI 
3 «139 709 
; 140 710 LOCAL 
149 re 5: 
3; 14 71 e 
: 146 714 P = .STRING; 
3; «6145 715 
: 196 ay INCR I FROM 1 TO .LEN DO 
3; 614 71 
: 148 at 
3; «149 71 


| 
| 
C = CHSRCHAR (.P); | 
} 


15 
CVTCASE = convert to upper case 18-Sep- 
CNV_UPC = convert to upper case 14-Sep- 


v 

N 

X1F SUPPORT_VT220 
XTHEN 


EQTSUEYTCASE 


ZELSE 


ZF I 
CHSWCHAR_A (.C, P); 
END; 


PAEAXAPEXEANAMIMANIIVIVIV 


FERS SSNS LENSS 
cccc a 

OQOQOOCOOCCOCOCoCoOoCooOoO mm 

Sa, i in, Sn Sn I, i ne ee ee 


a  — _ a — — — 9 is — 4 


0004 00000 


51 AC DO 00002 
§ D4 00006 
12 11 00008 

50 61 9A ia 1$: 
03 0000000060040 00 €1 0000D 
50 ¢? C2 00016 

3} 0 90 00019 ¢: 

E9 2 08 AC F3 QOOIC 3$: 
04 00021 


; Routine Size: 34 bytes, Routine Base: _EDTSCODE + 0000 


: 165 0 
0 


1 735 1 
; 166 736 «1 !<BLF/PAGE> 


! of routine EDTSSCNV_UPC 


- TITLE 


1986 92:35:77 


EDTSUCVTCASE EDTSUCVTCASE - convert to upper ca 


VA 
DI 


IF .EDTSSB_CHAR_INFO (.C, 0, 0, 1, 6] THEN C = .C = %C'a’ + XC°A'; 


IF ((.C GEQ@ ZC*a') AND (.C LEQ %C'z")) THEN C = .C = %C*a® + XC'2'; 


\V04-000\ 


EDT$$B_CHAR_INFO 
_EDTSCODE ,NOWRT, 


X-11 Bliss-3 
SKSVMSMASTER 


SHR, 


EDTSSCNV_UPC, Save R2 
STRING, PB 


2.V 


:CEDT 


PIC,2 


(P), C 
Hi EDT$$B_CHAR_INFOLC], 2$ 
#32 


tén 


(P)+ 
. I, 1$ 


wits Pa 
«SRC JUCVTCASE.BLI;1 


ooo oOo ocOoOOoO 


4 
(3) | 


ANN ONIN ON NO 
fa Nee SO 
o- WO Ou 


ERTeusy Case EDTSSENV UPE - convert to upper case 1b-$ep-19 4 01:57:5 VAX-11 Bliss-32 V4.0 Page 
= convert to upper case 14-Sep-1984 12:25:1 DISKSVMSMASTER : cept. she UCVTCASE .BLI;1 

; : Ore | 1 END ! of module EDTSUCVTCASE 

: 1% +35) ELUDON 

; PSECT SUMMARY 

; Name Bytes Attributes 

; -EDTSCODE 34 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


7 Se a a ea a Be ce BYERGLG Sowsenae Pages Processing 
3 File Total Loaded Percent Mapped ime 

: _$255$DUA28: EDT. SRCJEDT. 32; 1 377 0 0 40 00:00.2 
> 7$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
> 7$255$DUA28: EDT SRE TRANSLATE 32:1 0 0 57 00:00.1 
: 7$255$DUA28:CEDT.SRCJSUPPORTS.L32; 1 1 50 5 00:00.1 
: COMMAND QUALIFIERS 


21 titanate athe atte nach ota hintaan MSRC$:UCVTCASE .BLI/UPDATE=(ENHS:UCVT 


Size: 34 code + 0 data bytes 
Run Time :10.1 
Elapsed. Time: 0:13.0 


Lines/CPU Min: 4381 
ponenee’SPe-wres 12266 

penecy 60 pages 
Compi Bs nog Complete 


Mw 
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